<!-- #include file="../DAL/BD.asp" -->
<!-- #include file="../BLL/DV.asp" -->

<%
	On error resume next
	' Recalculo los digitos
    set conexion = Conectar()
	recalcular_digitos()
	
	'Registro el movimiento en la bitacora
	id = obtener_ultimo_id("BITACORA","ID_BITACORA") + 1
	dvh = calcularDVH(id & "Recalculo DV" & "2" & formatdatetime(now(), vbgeneraldate) & session("id_Usuario"))
	AgregarMovimiento "Recalculo DV", "2", session("id_Usuario"), dvh
	calcularDVV("BITACORA")
				
	' Registro el movimiento en la tabla backups
	EjecutarConsulta "INSERT INTO BACKUPS(NOMBRE,FECHA,ID_USUARIO,TIPO) VALUES ('Recalculo DV', getdate(),'" & Session("ID_USUARIO") & "','3')", conexion
	
	Desconectar(conexion)

	Session.Contents.Remove("ErrorDVH")
	Session.Contents.Remove("ErrorDVV")
	Response.Redirect("herramientas.asp")
%>